10 REM" PONZO/WATERLOO
20 [143]"
30 REM" FILE/TITLES
40 [143]"
100 PRINTCHR$(14):CLR:GOSUB690
105 NL=9:REM MAX LINES IN DISPLAY
110 PRINT"[147]"L$:PRINT" [195][146]REATE [206][197][215] [212][201][212][204][197]-[198][201][204][197]"
120 PRINT" [205][146]ODIFY OLD [212][201][212][204][197]-[198][201][204][197]":PRINT" NOTE[157][157][157][157][184][184][184][184][145]:[200]IT * TO [210][197][211][212][193][210][212].
125 [141]840:CH$[178]A$:[139]A$[178]"M"[167]1000
130 [129]U9[178]1[164]5:[153]"LOAD                                   ":[129]U8[178]1[164]50:[130]
131 [153]"LOADLEFT$IT "Q$"WAIT TO QUIT - *WAIT TO RESTART":[129]U8[178]1[164]50:[130]
135 [130]:MT[178]30:NM[178]MT:[153]L$
140 [134] TL$(NM),FD$(NM),SN(NC),I(2[172]NC),L(NM),N(NM),NM$(NF),TN(NM),S$(NM)
150 [134] PS$(NM),R(NM),A(NL)
155 I[178]0
160 [153]"TITLE "I[170]1"WAIT";:[133]TL$(I)
165 [139]TL$(I)[178]"*"[167][138]
170 [141]610:[139]TL$(I)[178]Q$[167]240
180 [153]"(null)UMBER OF CHARACTERS IN "TL$(I);:[133]"WAIT";LI$:L(I)[178][197](LI$)
181 [139]LI$[178]"*"[167][138]
185 [139][195](TL$(I))[170]L(I)[177]37[167][129]U9[178]1[164]5:[141]610:[130]:[137]160
190 [141]610
200 R(I)[178]0:[133]"HIGHLIGHTED DISPLAY   NCMDCMDCMD";V$:[139]V$[178]"Y"[167]R(I)[178]1
210 [141]610:[139]V$[178]Q$[167]240
215 [139]V$[178]"*"[167][138]
220 N(I)[178]1:[133]"AWAITLPHABETIC OR NWAITUMERIC   ACMDCMDCMD";V$:[139]V$[178]"N"[167]N(I)[178]0
225 [139]V$[178]"*"[167][138]
230 [141]610:I[178]I[170]1:[139]I[179]MT[167]160
235 [153]"******TOO MANY TITLES*****":[129]T[178]1[164]1000:[130]
240 NM[178]I[171]1
250 MAX[178]0:[129]I[178]0[164]NM:L[178][195](TL$(I)):[139]MAX[179]L[167]MAX[178]L
255 [130]:[141]420:S$[178]"":[153]"LOAD"
260 [129]K[178]0[164]NM:[153]PS$(K)TL$(K);:BL[178]L(K):[141]870:[153][202]([196](K[170]1),2):[130]
270 [153]SD$"ONFORMAT OK?";:[141]850:[139]A$[179][177]"Y"[167][141]540:[137]250
280 MAX[178]MAX[170]2:LL[178]MAX[170]2:SUM[178]0
285 [153]"LOAD";:[129]I[178]0[164]NM:FD$(I)[178][200](TL$(I)[170]DT$,MAX):[130]:N0[178]0
290 [129]I[178]0[164]NM:N0[178]N0[170]L(I):[130]:NC[178][181]((20000[171]5[172]NM[172]MAX)[173](N0[170]100))
291 [139]NC[177]255[167]NC[178]255
292 [141]2000
295 [153]"LOADVALACH STR$ATN(null)ATN-ASCRIGHT$(null)VAL MAY HAVE"NC" RECORDS."
300 [133]"(null)AME OF (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL";TF$
310 [133]"STR$RIVE   0CMDCMDCMD";DR$:[141]610
315 [133]"(null)EPLACE AN EXISTING (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL   NCMDCMDCMD";A$:[139]A$[178]"Y"[167]DR$[178]"@"[170]DR$
320 [159]15,8,15
330 [159]2,8,2,DR$[170]":"[170]TF$[170]",S,W"
335 [132]15,E,EM$,ET$,ES$
336 [139]E[179][177]0[167][153]""EM$:[160]2:[160]15:[153]">(null)VAL(null)(null)(null)(null)WAIT":[141]390:[137]295
337 [152]2,EN;CR$;:[139]EN[177]0[167][129]Y[178]1[164]EN:[152]2,EQ$(Y);CR$;:[130]
340 [152]2,NC;CR$;NM;CR$;LL;CR$;KM;CR$;
350 [129]I[178]0[164]NM:[152]2,R(I);CR$;:[130]
360 [129]I[178]0[164]NM:[152]2,TL$(I);CR$;FD$(I);CR$;L(I);CR$;N(I);CR$;PS$(I);CR$;:[130]
370 [129]K[178]0[164]KM:[152]2,A(K);CR$;:[130]
380 [160]2:[160]15:DR$[178][196]([194](704)):[147]DR$[170]":"[170]FM$,8:[138]
390 [161]A$:[139]A$[179][177]""[167]390
400 [161]A$:[139]A$[178]""[167]400
405 [139]A$[178]"*"[167][138]
410 [142]
420 [143] FORMAT CALCULATIONS
430 K[178]0:I[178][171]1
440 SUM[178]0
450 I[178]I[170]1:[139]I[177]NM[167]A(K)[178]NM:[137]490
460 SUM[178]SUM[170][195](TL$(I))[170]L(I)[170]3
470 [139]SUM[179]WD[167]450
480 I[178]I[171]1:A(K)[178]I:K[178]K[170]1:[139]K[179]NL[167] [137]440
481 [153]"LOAD***BAD FORMAT!!WAIT***":[133]"(null)ESTART   YCMDCMDCMD";U9$
482 [139]U9$[178]"Y"[167][138]
483 [142]
490 KM[178]K:Z[178]0:K[178]0
500 SUM[178]0:[129]I[178]Z[164]A(K):PS$[178][200](SD$,3[172]K[170]3):[129]J[178]0[164]SUM:PS$[178]PS$[170]"":[130]
510 PS$(I)[178]PS$:SUM[178]SUM[170][195](TL$(I))[170]L(I)[170]3:[130]
520 [139]K[179]KM[167]Z[178]A(K)[170]1:K[178]K[170]1:[139]K[179]NL[167]500
530 [142]
540 [143] CHANGE FORMAT
541 [153]SD$"ONLENHANGE TITLE #";:[133]U9$:[139]U9$[178]"*"[167][138]
545 TL[178][197](U9$)[171]1:G$[178]SD$[170]"ON"[170]BL$[170]SD$[170]"ON"
550 [139]TL[179]0[167]545
555 [153]G$;:[153]"TITLE  "TL$(TL):[153]"ON";
560 [133]TL$(TL):[153]G$;:[153]"LENHARACTERS IN (null)RIGHT$(null)(null)VAL "L(TL)
565 [133]"ON";L(TL):[139]MAX[179]L[167]MAX[178]L
570 Y$[178]"A":[139]N(TL)[178]0[167]Y$[178]"N"
575 [153]G$;:[153]"AWAITLPHABETIC OR NWAITUMERIC   ";Y$
580 N(TL)[178]1:[133]"ON";Y$:[139]Y$[178]"N"[167]N(TL)[178]0
600 [142]
610 [151]SID[170]24,15
620 [151]SID[170]4,17:[129]PP[178]1[164]50:[130]:[151]SID[170]4,0
630 [151]SID[170]24,0
640 [142]
650 [151]SID[170]24,15
660 [129]Y[178]1[164]5:[151]SID[170]4,33:[129]PP[178]1[164]50:[130]:[151]SID[170]4,0
670 [151]SID[170]24,0
680 [142]
690 [143] INITIALIZE
695 SID[178]54272:[151]SID[170]1,50:[151]SID[170]3,200:[151]SID[170]5,0:[151]SID[170]6,240:[151]SID[170]24,0
700 NF[178]50:[143] MAX NUMBER OF FILES
710 L$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
720 LP$[178]L$[170]L$:BL$[178]"                                     "
730 DT$[178]"":[129]I[178]1[164]39:DT$[178]DT$[170]".":[130]
740 Q$[178]"@":AQ[178][198](Q$):B$[178]"^":AB[178][198](B$):FL$[178]"               "
750 P1[178]1:P2[178]60:P3[178]64:WD[178]40
780 C0[178]198:LN[178]216:V$[178]"":O$[178]"WAIT"
790 L$[178][200](L$,WD[171]1)
800 SD$[178]""
810 CR$[178][199](13):P$(1)[178]"":P$(0)[178]""
820 PT$(1)[178]"":PT$(0)[178][199](13)
825 [151]53280,6:[153]"STOP"
830 [142]
840 [153]SD$"ON"L$SD$"SELECTIONWAIT ";
850 [151]204,0:[141]390:[151]204,1:[141]610
860 FM$[178]"FILE/MASTER":[142]
870 [153]"(null)ONCMDOR";:[129]Z[178]1[164]BL[170]1:[153]"TAN";:[130]:[153]"^CMD(null)CMDEXPCMDCMD";
880 [129]Z[178]1[164]BL[170]1:[153]"TANCMDCMD";:[130]:[153]"/ON";:[142]
890 BL[178]35:[153]SD$"ONONONON":[141]870
900 [153]""Q$"WAIT=QUIT(null)ONCMD=CMD>ON"B$"WAIT=LAST(null)ONCMD=CMD>ON";
910 [153]"_WAITBACK(null)ONCMD=CMD>ONRETURNWAIT=FORWARD":[142]
1000 [143] MODIFY
1010 [133]"LOAD(null)AME OF (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL";TF$
1015 [133]"STR$RIVE   0CMDCMDCMD";DR$
1020 [159]15,8,15
1030 [159]2,8,2,DR$[170]":"[170]TF$[170]",S,R"
1035 [132]15,E,EM$,ET$,ES$
1036 [139]E[179][177]0[167][153]""EM$:[160]2:[160]15:[153]">(null)VAL(null)(null)(null)(null)WAIT":[141]390:[137]1000
1037 [132]2,EN:[139]EN[177]0[167][129]Y[178]1[164]EN:[132]2,EQ$(Y):[130]
1040 [132]2,NC:[132]2,NM:[132]2,LL:[132]2,KM
1045 [134] TL$(NM),FD$(NM),SN(NC),I(2[172]NC),L(NM),N(NM),NM$(NF),TN(NM),S$(NM)
1050 [134] PS$(NM),R(NM),A(NL)
1055 [129]I[178]0[164]NM:[132]2,R(I):[130]
1060 [129]I[178]0[164]NM:[132]2,TL$(I):[132]2,FD$(I):[132]2,L(I):[132]2,N(I)
1070 [132]2,PS$(I):[130]:[129]K[178]0[164]KM:[132]2,A(K):[130]
1080 [160]2:[160]15
1090 [137]250
2000 [143] USER SUBROUTINE
2010 [153]"LOADSTR$O YOU WISH TO INCLUDE A SUBROUTINE"
2020 [153]"TO BE 'ADDED' TO "FM$"WAIT? ";:[141]850:[139]A$[178]"N"[167][153]:[142]
2030 [153]"LOAD(null)HE VARIABLES YOU HAVE ARE:"
2035 [129]Y[178]0[164]NM:[139]N(Y)[178]0[167][153]"V("Y")="TL$(Y)
2040 [130]:[153]"VALNTER"Q$" TO (null)(null)RIGHT$(null)STOP"
2050 [153]"";:EN[178]55000:Y[178]1
2060 EN$(Y)[178][196](EN[170]Y)[170]" ":[153]EN$(Y)EQ$(Y);
2070 [141]3000:[139] A$[179][177]Q$ [167]EQ$(Y)[178]EQ$:Y[178]Y[170]1:[153]:[137]2060
2080 [160]1:EN[178]Y[171]1
2090 [153]"LOAD";:[129]Y[178]1[164]EN:[153]EN$(Y)EQ$(Y):[130]
2100 [153]SD$"ON(null)(null)? ";:[141]850:[139]A$[178]"N"[167]2030
2200 [142]
3000 [143] INPUT
3010 EQ$[178]EQ$(Y)
3020 [151]204,0:[161]A$:[139]A$[178]""[167]3020
3030 [151]204,1:[139]A$[178]Q$[176]A$[178][199](13)[167][142]
3040 [153]A$;:EQ$[178]EQ$[170]A$:[137]3020